home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_GetNLNode.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  396b  |  18 lines
  1. /*
  2. ** GetNodelistNode...
  3. */
  4.  
  5. ADDRESS 'MAILMANAGER'
  6.  
  7. PARSE ARG node
  8.  
  9. MM_GetNodelistNode node 'nodeinfo'
  10.  
  11. if RC=0 THEN DO
  12.     text = ' System: b' nodeinfo.system '0A'x 'nSysop: b' nodeinfo.sysop '0A'x 'nCity: b' nodeinfo.city '0A'x 'nPhone: b' nodeinfo.phone '0A'x 'nBaud: b' nodeinfo.baudrate '0A'x 'nFlags: b' nodeinfo.flags
  13.     gadget = "*_Ok"
  14.     MM_Requester node 'text' 'gadget'
  15.     END
  16.  
  17. exit
  18.